C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


us kk 
AA GAL kk 
Ska kL 
ka kk A 
tal ka te 
kk bt us 


Ae. Ge. be. Oe. Oe. Oe te te te te te te te 
eke ee a a 


tau usu 
usu usu 
uu ua usu 
AA da uu 
uu usu usu 
uuu udu th 
tas Lk usus uu 


aSanoaaaaaa 


YY DDDDDDDD 
YY DDDDDDDD 
DDDDDDDD 
DDDDDDDD 


| 
| AaAaQaAaaaaaa 
WU 


Ww UW ds as a sa a 


od 
ee ee 
ee 


me 
en ee ee ee ee 
en en ee 


LLLLLLLLLL 
LLLLLLLLLL 


ae 
ud 
a 
_—_ 
dt 
Me 
” 
cs 
* 
* 
oa 
— 
ee 
* 
ad 
=) 
— 
ae 
* 
ao 


5 


33 


MPMIPIPINPIPININID 2 2 OO OO Ss 
a a ee ee a ee ee ee ed ed ed ad ed ed ed 


Ssosooooooooseess 
CON AUS WN SO OONAUES WN (OO ONAUSWN “OOONOUS WN O 


WN OC OONAULS WN —OODNAUSWN $OOONOUS WH —OOONOCUSWHR— 


ON PE Re AR ER RS te tN ae! Ot ee tee rte 
w 


3 
003 
00 
00 
00 
003 
003 
003 
003 
004 
004 
004 
004 
4 
4 
«2 
‘8 004 


14 
EDTSTSTKEYDEF = test a key's definition 1b-Sep-19 4 91:37:62 AX-11 Oh ieee v4. 
14-Sep-1984 12:25:07 EDT. SRCJTSTKEYDEF. 


2 


Bui 


ZTITLE "EDTSTSTKEYDEF = test a key''s definition’ 
MODULE EDTSTSTKEYDEF ( ' Test a wi ft definition 
poent = 'v04-000' ! File: TSTKEYDEF.BLI Edit: JBS1003 


BEGIN 


SRR RRRRRERRAAAAAAERARAERAAEAAAEEREEEE AERA EEAEAAEAA AAA AREAEEAARERERAKEREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
; IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWI 
; ER PERSON. NO TITLE TO AND OWNERSHIP OF 
't TRANSFERRED. 


tt THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ee compokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
Test a key's definition. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: August 13, 1982 
MODIFIED BY: 
1-001 - Original. JBS 15-Aug-1962 


- Make the string match be case insensitive. JBS 10-Nov-1982 
! 1-003 - Add a parameter for partial matching. JBS 14-Dec-1982 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSTST_KEYDEF; ! Test a key'’s definition 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
LIBRARY 'EDTSRC:KEYPADDEF '; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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4.0-74 Pepe ss 
~ ? AX-11 Bliss-32_ V 7 
DEF > test a key's definition 1f-3eoc1 984 t 93: 35: 6) EDT-SRCITSTKEYDEF -81 | 
VOLr0O0 EF EDISETSTCKEYDER Stest hey'S definition definition’ ; 
-* a key''s e n : 
"EDTSSTST_KEYDEF = test a tates 
: OR SE poeple Zi NE EDTSSTST_KEYDEF ( iia  ,  — : 
Se Se Bh ee | Adcass ttt, to nate : 
° ; : 
; 89 ° ; : Heels 1 oBartial matching 
: 90 i opaaTTAe 
: 1 ) sz 
& oe 1 144 PTION: 4 : 
; 9% DESCRI : Vp hea 
: 38 0665 1 | FUNCTIONAL finition of a key matches a specified string. This is u 
: aoe 1 | to check for GOLD, RESET. ADV Stee DEL hand ine. ; 
: 98 pore | the definition of DEL, to optimize 
n 99 
; 0670 1 
1 0671 1 | FORMAL PARAMETERS: ber of the key whose definition is to be tested 
; 138 $67 : i KEY The numbe aaa : 
; 104 pers , TEXT_PTR Pointer to the text to test ag 
; 105 et 1! : Number of bytes in that text vob 
; 196 0677 13 TEXT_LEN t part of the key definition must : 
; 1} = Only the first p ; 
: 108 0679 1 i PARTIAL 1 y : 
3 139 Oeét } ; IMPLICIT INPUTS: 
Ps 1 i 
5 NG o68s | : NONE : 
i 1% O68 1 i IMPLICIT OUTPUTS: 
BSE i BO ET gg ! 
; 118 0689 1 | ROUTINE VALUE: wpe : 
; 0690 1 | - ition matches the s ot match the strin 
: 139 bea. : d 2 te) ya le or its definition does n 
: 12 ; 
; 138 beaz } SIDE EFFECTS: | 
: 0695 1! 
: 182 0696 | i NONE | 
> 127 bean fie | ; 
; 3633 BEGIN Foot Lena | 
: two strings o : 
‘ 132 0708 ; ——— SSR poten fe Pate), Bally. | 
3 1 EDIS$F IND -k | ; 
: ite 705 EF_FIELD); | ; 
136 , LOCA ey_PTR : REF BLOCK C, BYTE) FIELD (KEY_DEF_ ; | 
mt , 8 : FIND_KEY (.KEY, KEY_PTR)) THEN RETURN (0); : 
¢ 18 709 IF ( NOT EDTSSFIND_ 
+ 140 710 .PARTIAL 
; 141 711 IF 
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3; Routine Size: 77 bytes, Routine Base: 
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IF EDTS$SSTR_CMP (.TEXT_PTR, KEY_PTR CKEY_DEF_TEXT), 
RETURN (0); 
END; 


- TITLE 
- IDENT 
-EXTRN 
-PSECT 
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IF (.TEXT_LEN NEQ .KEY_PTR CKEY_DEF_LEN]) THEN RETURN (0); 


-TEXT_LEN, 3) THEN RETURN (1); 
! of routine EDTSSTST_KEYDEF 


EDTSTSTKEYDEF EDTSTSTKEYDEF - test a 
nition 


\V04-000\ 

EDTSSSTR_CMP, EDTSSFIND_KEY 
-EDTSCODE,NOWRT, SHR, PIC,2 
EDTSSTST_KEYDEF, Save nothing 
#4, SP 
SP 
He. tena KEY 
re PTR, F 


PARTIAL, 1$ 
+ ee , 6(RO), TEXT_LEN 


$ 
+f #8, 6(RO), TEXT_LEN 


Text LEN 

#7, REY_PTR, -(SP) 
TEXT_PT 

a4, FOTSSSTR_ CHP 
RO, 3$ 

#1, RO 


RO 
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EDTSTSTKEYDEF EDTSTSTKEYDEF - ees s defin -Sep-1984 01:57:27 AX-11 Bliss-32 V4.0-74 Page 

04-000 EDTSSTST_KEYDEF - sot ys ‘s def tion 12286871382 93:30:55 Ebr. SRedTStK ote oct. : 

: Me Ore } END ! of module EDTSTSTKEYDEF 

> 164 7 § 0 ELUDOM 

3 PSECT SUMMARY 

Z Name Bytes Attributes 

; -EDTSCODE 77 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

; conwenas SyEhel§ ccccecee Pages Processing 

§ File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 

: ~$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

3 ~$255$0UA28:CEDT.SRCIKEYPADDEF .L32;1 34 5 14 7 00:00.1 

3 COMMAND QUALIFIERS 

3 1th 4 eat maa INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$: TSTKEYDEF /OBJ=0BJ$: TSTKEYDEF MSRC$: TSTKEYDEF .BLI/UPDATE=(ENHS:T 
Size: 77 code + 0 data bytes 
Run Ti -6 


00:1 3:0 


416 
Lexemes/CPU-Min: 11789 
Memory Used: 68 pages 


Compi.ation Complete 
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